home *** CD-ROM | disk | FTP | other *** search
/ PCMania 46 / PCMania CD46_2.iso / pc / sonar96 / kmatica.dir / 00449.ls < prev    next >
Encoding:
Text File  |  1994-07-07  |  396 b   |  26 lines
  1. on Frenesi
  2.   if rollOver(5) then
  3.     logo()
  4.   else
  5.     puppetSprite(5, 0)
  6.   end if
  7. end
  8.  
  9. on logo
  10.   if rollOver(5) then
  11.     puppetSprite(5, 1)
  12.     repeat with x = 1 to 10
  13.       set the castNum of sprite 5 to the number of cast string("s" & x)
  14.       countTime()
  15.       updateStage()
  16.     end repeat
  17.   end if
  18. end
  19.  
  20. on countTime
  21.   startTimer()
  22.   repeat while the timer < 3
  23.     nothing()
  24.   end repeat
  25. end
  26.